home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 December / CHIP Aralık 1996.iso / prog / backpack / demodata / misc / start.dxr / 00104_go -loop-.ls < prev    next >
Encoding:
Text File  |  1995-08-30  |  476 b   |  23 lines
  1. on mouseUp
  2.   global SNAME, UNAME, SEX
  3.   set SNAME to "Surname"
  4.   set UNAME to "Given name"
  5.   set SEX to 1
  6.   if the puppet of sprite 4 = 1 then
  7.     puppetSprite(4, 0)
  8.   end if
  9.   if the puppet of sprite 18 = 1 then
  10.     puppetSprite(18, 0)
  11.   end if
  12.   if the puppet of sprite 19 = 1 then
  13.     puppetSprite(19, 0)
  14.   end if
  15.   if the puppet of sprite 20 = 1 then
  16.     puppetSprite(20, 0)
  17.   end if
  18.   if the puppet of sprite 25 = 1 then
  19.     puppetSprite(25, 0)
  20.   end if
  21.   go("loop")
  22. end
  23.